Dim sSN
Dim sOTP
sSN= "0759687485"
'sOTP= "82487311"  '0
'sOTP= "82487312"  '13
sOTP= "8248731112" '2
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.SycAuthTest( sSN, sOTP )

  Set OBJ = Nothing